100 IF B GOTO 160
110 Q$=CHR$(34): PRINTCHR$(14);
120 B=1: INPUT "[147][201]NSTRUCTIONS (Y/N)   Y[157][157][157]";YN$
130 IF YN$="Y" GOTO 300
140 IF PEEK(773)<192 GOTO 160
150 _A
160 D$=MID$(STR$(PEEK(186)),2): IF A GOTO 180
170 A=1: PRINT"LOADING 'USE' CODE" : LOAD "TB/USE.OBJ",VAL(D$),1
180 SYS 49152
190 B$=Q$+"SYMASS 3.13"+Q$
200 PRINT "[147]LOAD " B$ "," D$
210 PRINT"RUN
220 A$[178]Q$[170]"TB/KERNEL"[170]Q$
230 [153] "LOAD " A$ "," D$ ""
240 [153] "(null)OW ENTER: (null)(null)VAL"Q$"[MODULE NAME]"Q$
245 [153] "(SEE DIRECTORY FOR MODULE NAMES)
250 PRINT "[215]HEN FINISHED ENTER "Q$"[210][213][206]"Q$""
260 POKE 198,8
270 FORJ=631TO633: POKEJ,13: NEXT
280 FORJ=634TO638: POKEJ,17: NEXT
290 END
300 PRINT "[147][212]RANS[194][193][211][201][195] [211]AMPLER
310 [153]
320 [153] "(null)HIS (null)RANSACTOR STR$ISK CONTAINS THE
330 PRINT "[212]RANS[194][193][211][201][195] MODULES THAT WERE PUBLISHED
340 [153] "IN THE CORRESPONDING (null)RANSACTOR
350 PRINT "[205]AGAZINE. [205]OST MODULES CONTAIN MORE
360 [153] "THAN ONE COMMAND. (null)O TRY THE COMMANDS
370 PRINT "IN A MODULE, TYPE:": PRINT
380 PRINT "[213][211][197]"CHR$(34)"MODULE NAME"CHR$(34)",DEVICE#":PRINT
390 PRINT "[212]HE DEVICE# DEFAULTS TO THE LAST ONE
400 [153] "ONE USED. (null)OU MAY (null)(null)VAL AS MANY MODULES
410 PRINT "AS MEMORY WILL ALLOW. [215]HEN FINISHED,
420 [153] "ENTER '(null)(null)(null)' AND THE COMMANDS WILL BE
430 PRINT "ADDED TO [194][193][211][201][195]. [217]OU CAN THEN INCLUDE
440 [153] "THE NEW COMMANDS AS PART OF YOUR PEEKATN(null)RIGHT$LEN
450 PRINT "PROGRAMS. [198]OR MORE DETAILS, SEE THE
460 [153] "(null)RANSPEEKATN(null)RIGHT$LEN RIGHT$RIGHT$ (null)ANUAL (SEE ORDER CARD IN
470 PRINT "ANY [212]RANSACTOR)
480 [153]
490 [133] "(null)ROCEED (Y/N)   YCMDCMDCMD";YN$
500 [139] YN$[178]"Y" [137] 140
510 B[178]0: [128]